From 6aea90199f817094834195474e86b42cc71ffc3d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 14 Nov 2006 11:26:07 +0000 Subject: [PATCH] (terminal-init-xterm): Add more key bindings. --- lisp/term/xterm.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 018841fe168..fac25d86699 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -44,7 +44,7 @@ ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-. The ;; code here subsitutes the corresponding defintions in ;; function-key-map. This substitution is needed because if a key - ;; definition if found in function-key-map, there are no further + ;; definition is found in function-key-map, there are no further ;; lookups in other keymaps. (substitute-key-definition [f13] [S-f1] function-key-map) (substitute-key-definition [f14] [S-f2] function-key-map) @@ -117,6 +117,10 @@ (define-key map "\eO2Q" [S-f2]) (define-key map "\eO2R" [S-f3]) (define-key map "\eO2S" [S-f4]) + (define-key map "\e[1;2P" [S-f1]) + (define-key map "\e[1;2Q" [S-f2]) + (define-key map "\e[1;2R" [S-f3]) + (define-key map "\e[1;2S" [S-f4]) (define-key map "\e[15;2~" [S-f5]) (define-key map "\e[17;2~" [S-f6]) (define-key map "\e[18;2~" [S-f7]) -- 2.30.2